home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / ai.prl / opnprlg1.hqx / Open Prolog / Samples / Drawing Demo / Open Prolog Startup < prev    next >
Text File  |  1992-05-25  |  173b  |  10 lines
  1. :-['draw trial'].
  2. :-repeat,
  3. 'system$random'(300,Wr),
  4. 'system$random'(240,Hr),
  5. W is 300+Wr,
  6. H is 200+Hr,
  7. 'system$random'(400,Tr),
  8. T is Tr+100,
  9. trial(W,H,T),draw(2,0,0),fail.
  10.